Sub rr()
Dim r as range
set r = selection
activeworkbook.envelopevisible = true
with r.parent.mailenvelope.item
.to = "test@test.com"
.cc = ""
.bcc = ""
.subject = "test"
'.attachments.add "path"
.send
end with

end sub